--macro showController global controllerOnOff, autoStatus, telephoneStatus, soundStatus, zoomCounter if controllerOnOff then exit put TRUE into controllerOnOff repeat with n = 17 to 20 puppetSprite n, TRUE set the type of sprite n =1 set the ink of sprite n = 0 set the foreColor of sprite n = 255 end repeat set the castNum of sprite 17 = the number of cast "contollerBoard" set the locH of sprite 17 = 318 set the locV of sprite 17 = 455 set the castNum of sprite 19 = the number of cast "exit,up" set the locH of sprite 19 = 358 set the locV of sprite 19 = 440 set the castNum of sprite 20 = the number of cast "help,up" set the locH of sprite 20 = 303 set the locV of sprite 20 = 440 if soundStatus then set the castNum of sprite 18 = the number of cast "soundOn,up" set the locH of sprite 18 = 248 set the locV of sprite 18 = 440 else set the castNum of sprite 18 = the number of cast "soundOff,up" set the locH of sprite 18 =248 set the locV of sprite 18 = 440 end if updateStage
--macro soundOnOff onOff global soundStatus if onOff = "on" then set the soundEnabled = TRUE else if onOff = "off" then set the soundEnabled = FALSE end if if soundStatus then put FALSE into soundStatus set the castNum of sprite 18 = the number of cast "soundOff,up" set the locH of sprite 18 = 248 set the locV of sprite 18 = 440 else put TRUE into soundStatus set the castNum of sprite 18 = the number of cast "soundOn,up" set the locH of sprite 18 = 248 set the locV of sprite 18 = 440 end if updateStagemacro controllerSpriteOn x, y global controllerOnOff repeat with n = x to y puppetSprite n, TRUE set the type of sprite n =1 set the ink of sprite n = 0 set the foreColor of sprite n = 255 end repeat updateStagemacro eraseController global controllerOnOff put FALSE into controllerOnOff repeat with n = 17 to 20 puppetSprite n, FALSE set the locV of sprite n = -440 end repeat updateStage macro checkTelephone if soundBusy(1) then return TRUE return FALSE
Script Channel Commands
--------------------
cursor 129set File=0cursor 129eraseControllerrepeat with i=3 to 5 puppetSprite i, FALSE upDateStageend repeatgo to the framewait 0.1cursor 129go to movie "BEST10"BgmPlayupDateStagepuppetTransition 23,0,8wait 2puppetTransition 7,0,8go "mainLoop"cursor 129go to movie "video"cursor 129go to movie "photosel"TittleInitpuppetTransition 23,0,8go to "mainLoop"if File>0 then eraseController puppetTransition 23,0,8 repeat with i=3 to 5 puppetsprite i,FALSE end repeat go to the frame+File exitend ifput 139 into Num--CgCursorif rollOver(16) then --beep showControllerelse eraseControllerend ifrepeat with i=3 to 5 if rollOver(i) then set the castNum of sprite i = the number of cast("Tittle" & (i-2) & ",on") set num = 128 else set the castNum of sprite i = the number of cast("Tittle" & (i-2) & ",off") end ifend repeatupdateStageif rollOver(17) then set num = 128end ifcursor Numgo to the framepuppetTransition 7,0,1wait 0.1cursor 128go to the framepuppetTransition 8,0,1go to movie "ENDING"
vwci
----
1027: □Pipo
1028: □BGM1
1032: on mouseUp end mouseUp□contollerRange
1033: on mouseUp end mouseUp□Tittle1,off
1034: on mouseUp global File set File=1 PipoSoundend mouseUp
Tittle1,on
1035: on mouseUp end mouseUp□Tittle2,off
1036: on mouseUp global File set File = 2 PipoSoundend mouseUp
Tittle2,on
1037: on mouseUp end mouseUp□Tittle3,off
1038: on mouseUp global File set File = 3 PipoSoundend mouseUp
Tittle3,on
1040: □ﾆ畜ﾆ耽ﾆ停\
1042: □about system
1043: □about ContPannel 1
1044: □about cursor
1045: on mouseDown if button() then go to marker(-1)end mouseDown□helpPrev,up
1046: on mouseDown if button() then go to marker(1)end mouseDown□helpNext,up
1047: on mouseDown if button() then PipoSound BgmPlay puppetsprite 20,FALSE set the locV of sprite 20 = -113 go "HelpClose" end ifend mouseDownhelpReturn,up
1053: helpPrev,Down
1054: helpNext,Down
1055: on mouseUp end mouseUp□helpReturn,down
1057: on mouseDown if button() then soundOnOff("off") end ifend mouseDown
soundOn,up
1058: □soundOn,down
1059: on mouseDown global Silence,TelMode if button() then soundOnOff("on") PipoSound BgmPlay end ifend mouseDown□soundOff,up
1060: soundOff,down
1061: on mouseDown global EndCode if button() then PipoSound go to frame label("YesNo") end if end mouseDown□exit,up
1062: on mouseUp end mouseUp exit,down
1064: on mouseUp end mouseUp□contollerBoard
1065: on mouseDown global EndCode if button() then PipoSound BgmPlay eraseController go to frame label("Help") end if end mouseDown□help,up
1066: on mouseUp end mouseUp help,down
1070: □BGM1
1071: □BGM2
1074: on mouseDown if Button() then PipoSound go to frame label("ProgEnd") end ifend mouseDown□yes,up
1075: □yes,down
1076: on mouseDown global CgPage if Button() then PipoSound BgmPlay go marker(1) end ifend mouseDown□no,up
